home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / U-User Group / (k)u6.d64 / wait'n'go.proc < prev    next >
Text File  |  2007-02-28  |  701b  |  28 lines
  1. 0010 // LIST "0:WAIT'N'GO.PROC"
  2. 0020 //
  3. 0030 DIM RESP$ OF 1
  4. 0040 PRINT "┘OU'VE GOT 6 SECONDS TO REPLY"
  5. 0050 KEY'WAIT'N'GO(6,RESP$)
  6. 0060 IF RESP$=CHR$(0) THEN
  7. 0070 PRINT "┘OU BLEW IT"
  8. 0080 ELSE 
  9. 0090 PRINT "┘OU GOT IT"
  10. 0100 ENDIF 
  11. 0110 END 
  12. 0120 // ** ╫AIT ON KEY PRESS FOR 'X' SECONDS AND GO ON IF NOT PRESSED **
  13. 0130 PROC KEY'WAIT'N'GO(X,REF RESP$) CLOSED
  14. 0140 DIM NUL$ OF 1
  15. 0150 NUL$:=CHR$(0)
  16. 0160 END'TIME:=JIFFIES+60*X
  17. 0170 REPEAT 
  18. 0180 RESP$:=KEY$
  19. 0190 UNTIL RESP$<>NUL$ OR JIFFIES>END'TIME
  20. 0200 ENDPROC KEY'WAIT'N'GO
  21. 0210 //
  22. 0220 // ** RETURN SYSTEM TIME IN JIFFIES **
  23. 0230 FUNC JIFFIES CLOSED
  24. 0240 SYSTIM:=PEEK(162)+256*(PEEK(161)+256*PEEK(160))
  25. 0250 RETURN SYSTIM
  26. 0260 ENDFUNC JIFFIES
  27. 0270 //
  28.